home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / System / DX Clock 1.31 / DX Clockƒ / Globals.p < prev    next >
Encoding:
Text File  |  1991-11-04  |  676 b   |  42 lines  |  [TEXT/PJMM]
  1. unit Globals;
  2.  
  3. interface
  4.  
  5.     const
  6.         vers = 'v 1.31';
  7.  
  8.         cursorDev = 14;
  9.  
  10.         iSettings = 1;
  11.         iText = 2;
  12.         iPict = 3;
  13.         iPictRect = 4;
  14.         iTextRect = 5;
  15.         iCopyrightRect = 6;
  16.  
  17.     type
  18.         SampleStorage = record
  19.                 dlgPtr: DialogPtr;
  20.                 dlgItems: Integer;
  21.             end;
  22.         samplePtr = ^SampleStorage;
  23.         sampleHdl = ^samplePtr;
  24.         prefStorage = packed record
  25.                 signature: OSType;
  26.                 ptrAddress: LongInt;
  27.                 fontNum: Integer;
  28.                 fontSize: Integer;
  29.                 offset: Integer;
  30.                 stringWid: Integer;
  31.                 vPos: Integer;
  32.                 clockColor: RGBColor;
  33.                 clockRect: Rect;
  34.                 useClockColor: Byte;
  35.                 timeWithSecs: Byte;
  36.             end;
  37.         prefPtr = ^PrefStorage;
  38.         prefHandle = ^prefPtr;
  39.  
  40. implementation
  41.  
  42. end.